home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u304.dms / in.adf / bits / window.AMOS / window.amosSourceCode
Encoding:
AMOS Source Code  |  1992-03-22  |  450 b   |  18 lines
  1. Screen Open 0,640,200,2,Hires
  2. Paper 0 : Pen 1 : Colour 1,$CCC : Curs On : Cls 
  3. Amos To Back 
  4. Open Port 1,"RAW:0/0/640/200/(c)opyright 1991-M. R. N. Arnold    -   Use CTRL-A to flick back to AMOS"
  5. Do 
  6. A=Port(1)
  7. If A=3 Then Exit : Rem CTRL-C!
  8. If A<>-1
  9. A$=Chr$(A)
  10. If A=13
  11. A$=Chr$(10)+Chr$(13)
  12. End If 
  13. Print #1,A$; : Print A$;
  14. End If 
  15. Loop 
  16. Amos To Front 
  17. Print : Print 
  18. Print "  -> And that concludes are demonstration for today, Thankyou very much! <-"